Sky at Night 2007 May/SAN CD 5-2007 CD-ROM 24.iso/pc/Software/ISSsimulator_Win/install.exe/install.dxr/00005_MUI-GUI- getInstallPathDialog.ls

Text File | 2007-03-09 | 1.6 KB | 32 lines

on getInstallPathDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  iconLi = [#sys: #note]
  NameLi = [#i1, #continueBut, #browseBut, #exitBut, #installPathField, #S1]
  EnabLi = [#i1: 1, #continueBut: 1, #browseBut: 1, #exitBut: 1, #installPathField: 1, #S1: 1]
  BtnsLi = [#continueBut: "Continue", #browseBut: "Browse", #exitBut: "Exit"]
  StatLi = [#S1: "Please specify an installation location:"]
  if EditLi = VOID then
    EditLi = [#installPathField: EMPTY]
  end if
  attrLi = []
  valuLi = [:]
  grupLi = [:]
  return getgetInstallPathDialogDialog(iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi)
end

on getgetInstallPathDialogDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  winProps = [#type: #normal, #mode: #pixel, #closeBox: 0, #callback: "muiCallbackStandard", #modal: 1]
  titleBar = "Install ISS Simulator V3.0"
  inscription = getMUIGUIDlogText(BtnsLi, StatLi, EditLi)
  txtLi = [#titleBar: titleBar, #inscription: inscription]
  if not listp(attrLi) then
    attrLi = [:]
  end if
  if not listp(valuLi) then
    valuLi = [:]
  end if
  ElemLi = [#i, #d, #b, #b, #e, #s]
  xyLi = [#PositionX: #z, #PositionY: #z, #BreiteF: 410, #HoeheF: 100, #xListe: [10, 310, 110, 210, 60, 60], #yListe: [10, 70, 70, 70, 40, 10], #bListe: [32, 91, 91, 91, 340, 280], #hListe: [31, 20, 20, 20, 20, 25], #aListe: [#left, #center, #center, #center, #left, #left], #pListe: [0, 0, 0, 0, #normal, #normal]]
  answer = displayMUIDialog(winProps, iconLi, NameLi, EnabLi, ElemLi, xyLi, txtLi, attrLi, valuLi, grupLi)
  return answer
end